home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / LIBRARY / EXPANDDE.LI < prev    next >
Text File  |  1993-12-26  |  192b  |  6 lines
  1. #  expandde() expand denominators only
  2. #  e.g. expandde((a+b)^3/(c+d)^2) gives (a+b)^3/(c^2+2*c*d+d^2)
  3.  
  4. expandde(a_+b_) := expandde(a)+expandde(b)
  5. expandde(x_) := nume(x)/expand(deno(x))
  6.